home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tool-inc.zip / PLOTLIB.INT < prev    next >
Text File  |  1990-01-31  |  2KB  |  75 lines
  1.  
  2. (*
  3.  * plotlib - graphics graph plotting package
  4.  *
  5.  *)
  6.  
  7. const
  8.    green     = 1;
  9.    red       = 1;
  10.    yellow    = 1;
  11.    mark_x    = 4;        {size of marker}
  12.    mark_y    = 2;
  13.    numtics   = 5;        {number of ticks in scales}
  14.    maxstyle  = 4;
  15.  
  16. var
  17.    maxx:    real;      {logical dimensions of screen}
  18.    minx:    real;
  19.    maxy:    real;
  20.    miny:    real;
  21.    xstep:   real;
  22.    ystep:   real;
  23.    nxsteps: integer;
  24.    nysteps: integer;
  25.    color:   integer;
  26.  
  27. var
  28.    phys_maxx: integer;    {physical dimensions of graphics area}
  29.    phys_minx: integer;
  30.    phys_maxy: integer;
  31.    phys_miny: integer;
  32.  
  33. var
  34.    Graph_Driver:  integer;
  35.    Graph_Mode:    integer;
  36.    Text_Mode:     word;
  37.  
  38. const
  39.    Driver_Path = '';
  40.  
  41.  
  42. function get_phys_x(vx: real): integer;
  43. function get_phys_y(vy: real): integer;
  44. procedure connect(x1,y1,x2,y2: real);
  45. procedure tick(x1,y1: real);
  46.  
  47. procedure determinescale (var world_min:     real;
  48.                           var world_max:     real;
  49.                           var stepsz:        real;
  50.                           var stepcnt:       integer;
  51.                               maxstep:       integer);
  52.  
  53. procedure marker(x,y: real; style: integer);
  54.  
  55. procedure labely(y: real);
  56. procedure ticky(y: real);
  57.  
  58. procedure labelx(x: real);
  59. procedure tickx(x: real);
  60.  
  61. procedure putxscale;
  62. procedure putyscale;
  63.  
  64. procedure border;
  65.  
  66. procedure plot_data(variable_number: integer;
  67.                     x:               integer;
  68.                     y:               real);
  69.  
  70. procedure event(x: integer; note: string);
  71.  
  72. procedure open_graph;
  73. procedure close_graph;
  74.  
  75.